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Require file for INIT utility 
Version: *v04-000' 


Pee Reee AERA AEE HEHEHHA HAART ARERR eReeeE AeA eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
't DIGITAL EQUIPMENT €or PORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED eee A_LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint ~_ ad AL 3 


® 
og 
® 
ey 
a 
® 
® 
'e® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY * 
‘® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
‘® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
ty 
‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
° w 
i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
| eenuesesdcendnneeeeeensnstanneniabubenenendennsensteenebanenbedsaeeanenenten 
'e¢ 
' 
FACILITY: INIT Utility Structure Level 1 
i ABSTRACT: 


This file contains definitions common to the modules that make up 
the INIT utility. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 9-Nov-1977 11:36 
i MODIFIED BY: 


v03-002 $1TJ3088 Jeffr eh oApr-1985 
Add support for SENOSERASE and "VENOJHIGHWATE ‘ 
v03-001 mMD0118 Meg Dum 29-Mar-1983 


0:43 
Add support for nee eet opts _* AVR, AVL and VMS protections 
V02-009 DMWw0014 David Michael Walp 26-Aug-1981 
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Changed /ANSI to /LABEL 


v02-008 ACG0210 Andrew C. Goldstein -Jul-1981 19:32 
Allow INIT/STRUCTURE=1 on magtape (for mcr CLI) 

v02-007 pmw0002 David Michael wal 3-Mar-1981 
Added switch '/ANSI=VOLUME “ACCESS BILITY:"x' for ANSI 


SS 


magnetic tape volume label™ ( 


v02-006 RLRDENS Robert L. Ra gp ages 
s 


prepert 
Added /DENSITY= SINGLE and /DENS1TY=DOUBLE support for RXx02' 
Previous revision history moved to CINIT.SRCJINIT.REV 


' 
: Definitions of the option bits produced by the command parser. 


LITERAL : 
SEQULST (OPT ,GBL.0,1 ; 
» (DENSITY) ! /DENSITY switch seen : 
> (DENS_800,) i /DENSITY:800 switch seen : 
. (SHARE, ) ! /SHARE switch seen : 
> (GROUP, ) i /GROUP switch seen ; 
> (SYSTEM, ) i /SYSTEM switch seen : 
- (EBCDIC,) ! /EBCDIC switch seen : 
> (VERIFIED, ) i /VERIFIED switch seen : 
» (READCHE CK, ) i /DATACHECK:READ switch seen : 
» (WRITECHECK,) ! /DATACHECK:WRITE switch seen : 
» (BADBLOCKS., 5 i JBADBLOCKS switch seen ; 
» (PROTECTION, ) i /PROTECTION switch s : 
> (FILE PROT, 5 i 7FILE PROTECTION switch seen : 
> (RECORD PROT, ) i /RECORD PROTECTION switch seen : 
» (OWNER OIC,) ' /OWNER OIC switch seen : 
» (MAXIMUM, ) ! /MAXI switch seen ‘ 
> (CLUSTER, ) i /CLUSTER switch seen : 
» (HEADERS, ) ! /HEADERS switch seen ‘ 
> (EXTENSION, ) i /EXTENSION switch seen : 
(WINDOW, ) : /WINDOW switch seen ; 
> (ACCESSED, ) i /ACCESSED switch see : 
> CINDEX_BEG, ) i /INDEX:BEGINNING switch seen 3 
> CINDEX-MID,) | JINDEX:RIDDLE ‘switch seen ; 
- CINDEX_END,) ! /INDEX:E D guitch seen : 
» (INDEX LBN,) : /INDEX:n nsw tch seen : 
- (DEVICE ,) : device name seen : 
> (LABEL, 5 ! volume gene} se ‘ 
o(1S_FILES11,) ! volume Lready Fi Files-11 : 
> (OVR_EXP,) i /OVERRIDE :EXPIRA : 
> (USER NAME , ) i /USER NAME. suiteh seen 3 
> (DIRECTORIES, ) i /DIRECTORIES switch seen : 
> (OVR_ACC,) | JOVERRIDE : ACCESSIBILITY : 
> (STROCTURE1,) i /STRUCTURE:1 switch s 3 
- (EXPNOTAT ,) : switches whi oo are defaulted true that are illegal for MT were explicitly seen : 
» (DENS 1600,) i /DENSITY:1600 switch s ; 
. (EXP_JER,) ! explicit WeERIF TES’ or STNOVERIF IED seen : 


' 
Masks 


LITERAL 


INIDEF .832;1 
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- (DENS_6250,) ! /DENSITY:6250 puiteh seen 
, (DENS_SING,) ! /DENSITY:SINGLE switch seen 
, (DENS DOUB,) ! /DENSITY:DOUBLE switch se 
» (LABEC_QUAL,) ! /LABEL=VOLUME ACCESSIBILITY: * E 
> (VOL_OQNER, 5 i /LABEL=OWNER IDENTFIER: "volume owner’ seen 
> (OVR-VOLO, 5 i /OVERRIDE=OWRER_IDENTIFIER seen 
» CINTERCHG, ) ! ens seen 
. (ERASE ,) ' /ERASE s 
; (NOMI GHWATER ) : 7NOHIGHWATER seen 
of options legal for disk and tape. 
DISK_OPTIONS = } quali tters sonal for disk 
_140PT DENSITY ! /DENSITY seen 
OR 1*OPT_SHARE ‘ / SHARE switch seen 
OR 1°OPT_GROUP ! /GROUP switch seen 
OR 1“OPT_SYSTEM ; ASE a switch seen 
1°OPT_VERIFIED ! /VERIFIED switch seen 
OR 1*OPT_READCHECK ! /DATACHECK:READ switch seen 
1°OPT_WRITECHECK ! /DATACHECK:WRITE switch seen 
OR 1* LOC ! /BADBLOCKS switch seen 
OR 1°OPT— “PROTECTION ' /? reg et mei ten seen 
OR 1°OPT-FILE PRO ! /FILE_PROTECTION switch seen 
OR 1“°OPT_RECORD PROT ; /RE CORD PROTECTION switch seen 
OR 1°OPT_OWNER 0 ! /OWNER OIC switch seen 
OR 1*°OPT_MAXIMOM ' /MAXIMOM switch seen 
OR 1*OPT_CLUSTER ! /CLUSTER switch seen 
OR 1*OPT_HEADERS ! eet switch seen 
OR 1“°OPT_EXTENSION ! /EXTENSION switch seen 
OR 1*OPT_WINDOW ! /WINDOW switch yt 
OR 1°OPT_ACCESSED ! /ACCESSED switch s 
OR 1*OPT_INDEX_BEG ! /INDEX:BEGINNING oultch seen 
OR 1*°OPT_INDEX_MID ! /INDEX:MIDDLE switch seen 
OR 1°OPT_INDEX_END ! /INDEX:END switch seen 
OR 1*OPT_INDEX_LBN ! /INDEX:n switch seen 
OR 1°OPT_DEVICE ! device name seen 
OR 1*OPT_LABEL ' volume Label s 
OR 1°OPT"IS_FILES11 ! volume is slresey Files-11 
1*OPT~ NAME ! /USER_NAME switch seen 
OR 1°OPT =DIRECTORIES ' /DIRECTORIES switch seen 
OR 1*°OPT-STRUCTURE1, ! /STRUCTURE:1 switch seen 
DISK_OPTIONS2= 
1° (OPT SerwO Tet 532} ! iLlegat MT switches e exp tly se 
OR 1*°(OPT_EXP_VER -32) ! expt cit /VERIFIED o 7NOveR 1ED” seen 
OR 13(OPT~DENS. SING- ! /DENSITY:SINGLE cuit ch s en 
OR 1*(OPT_DEN ) | /DENSITY: DOUBLE switch seen 
OR 1°(OPT ~PRASES i /ERASE seen 
OR 1*(OPT"NOH]GHUATER-32) , ! /NOHIGHWATER 
TAPE _OPTIONS = : qualifiers seeet fe Lod tape 
1*OPT_DENSITY ! /DENSITY tch 
OR 1*OPT_DENS_800 ! /DENSITY: 00 switch seen 
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OR 1*OPT_EBCDIC ! /EBCDIC switch seen 
OR 1*0P T- SHARE ! SET BECAUSE OF DISK bef Aub T TRIE 
OR 1“OPT_VERIFIED ! SET BECAUSE DISK DEFAULT TRUE 
OR 1*0PT_ PROTECTION ! /PROTECTION switch se en 
OR 1* Pt. ER UIC ! /OWNER UIC switch seen 
OR 1*OPT"OVR_EXP ! OVERRIDE EXPIRATION pare SEEN 
OR 1*0PT ~OVR-ACC / POVERR IDE ZACCESSIBIL LITY 
OR 1“°OPT-STROCTURE1 ! /STRUCTURE:1 switch seen 
OR 1*OPT-LABEL” | Solune [enel seen 
OR 1°OPTIIS_FILES11,  ! volume is already Files-11 
1 AC6PT DENS 1600 32) ! /DENSITY:1 itch 
- switch seen 
OR 1*(OPT_DENS 825028 ) ! IDENSITY 695 switch seen 
OR 1*(OPT-LABEC_QUAL-32) ! /LABEL=VO ACCISSIBILITY:"'x"' switch seen 
OR 1*(OPT_VOL_OONER-32) ! /LABEL=OWNER_ IDENTIFIER: volume owner’ seen 
OR 1*(OPT_OV yoo ¢ ) ! /OVERRIDE=OWRER_IDENTIFIER seen 
OR 1, (ORT AINTERCH “32) ! TERCHANGE seen 
OR 1*(OPT_ERASE=-32), ! /ERASE seen 
Vevet? rio = } 9 Litre, seen) anty on Structure level 2 
. Sw 
OR 1°OPT_WRITECHECK ! /DATACHECK: WRITE switch seen 
OR 1*OPT_RECORD PROT ! /RECORD_ PROTECTION switch seen 
OR 1*OPT-CLUSTER, ! /CLUSTER switch seen 
LEVELS at ie secand te "aie of above 
OR 1*(OPT_NOHIGHWATER-32); ! 7NOHi GHUATER 


Error exit macro. 


ERR_EXIT (CODE) = 
SIGNAL_STOP (ZIF NOT ZNULL (CODE) ZTHEN CODE ZELSE 0 2F1) 


ERR_MESSAGE [] = 
SIGNAL CEREMAINING) 
' e 


Macro used to signal fatal errors (internal consistency checks). 
MACRO 
SUELO See TYPE, MESSAGE) = 


BUILTIN BUGW; 
EXTERNAL LITERAL ZNAME(° BUGS_ * CODE); 
BUGH (ZNAME ("BUGS_', CODE) OR™4S 


Macro to generate a string and descriptor. 
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MACRO 
it (STRING) = 
PLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING))%; 


i MACRO TO CALL THE CHANGE MODE TO KERNEL SYSTEM mg E. 
i nA a CALL FORMAT IF ‘KERNEL_CALL(ROUTINE, ARG1, ARG2, ...)"’. 


a CALL(R) = 


EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING MODE (ABSOLUTE); 
SYSSCMKRNL (R, .SP, %LENGTH -1 
aii tif XLENGTH GTR 1 XTHEN, %REMAINING %F1) 


i MACRO TO CALL THE CHANGE MODE TO EXEC SYSTEM wage ; 
4 MACRO CALL FORMAT IF "‘EXEC_CALL(ROUTINE, ARG1, ARG2, ...)"'. 


ome fe = 


EXTERNAL RO ROUTINE SYSSCMEXEC : ADDRESSING_MODE (ABSOLUTE) ; 
SYSSCMEXEC (R, .SP, ZLENGTH -1 

ste tif LENGTH CIR 1 XTHEN, %REMAINING %F1) 

‘ e 


; Macro to declare parameter List for TPARSE action routines. 


MACRO 
TPARSE_ARGS CNAME) 2 
BU ILTIN 


STAAMES = AP : REF BBLOCK; 
' ° 
: Structure of bad block table entry. 


MACRO 


AD_LBN = 6. 0, 32, 0%, ! bad block start LBN 
AD- SECTOR = 0, 0, 8. 0%. ! bad block sector number 
BAD_ TRACK = 1, 0, 8, 02, ! bad block track number 
BAD-CYLINDER = 2, 0, 16, O&, ' bad block cylinder number _ 
= 4, 0, 16, 0%, ! number of blocks in bad section 
BAD" STC_FORM = 6, 0, 1, 02; ! set if sector, track, cylinder format 
LITERAL 
BAD_LENGTH = 8; ! Length of bad block table entry 


nN 
Structure for all MDL defined blocks. 


STRUCTURE 
BBLOCK (CO, P, S, E; N) = 


(BBLOCK+0)<P,S,E>, 


<_ 
oz 
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email 0, P, S, E; N, BS] = 
(BBLOCKVECTOR+1*BS)+0)<P,S,E>; 
; Cleanup action flags. 


LITERAL 
CLF_CLEARVALID = 1; ' clear 


software volume valid on error 


Sz 
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